
ppuwrite:  ; A=src ... desth/l counth/l --
	colon

	.dw lit, TEMP+0, store
	.dw lit, TEMP+1, store

	mcallasm ppuaddress

	.dw lit, TEMP+0, fetch
	.dw lit, TEMP+1, fetch
	.dw dup

mif +then

-for .dw for
		.dw dup
--for .dw for
			.dw fetchplus
			mcallasm ppustore
		mnext --for
	mnext -for
	.dw drop,exit
+then

	.dw drop

--for .dw for
		.dw fetchplus
		mcallasm ppustore
mnext --for

	.dw exit